<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>483</cardCount>
<cardID>11495</cardID>
<listID>10748</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on openStackglobal curcard,curLang,test,slidesOnAddColor installhide menubarput 1 into curLangput false into testput false into slidesOnput 3 into curcardinitLangStringssetLang 5 -- set the default to be Japanesepass openStackend openStackon initLangStringsglobal slide, quitit,langStrings, catsput "E,G,F,S,J,C" into langStringsput "Slide Show,Diaschau,Présentation,Diapositivas,ÉXÉâÉCÉhÅEÉVÉáÅ[,§€øO§˘Æi•‹" into slideput "Quit,Ende,Exit,Salida,èIóπ,µ≤ßÙ" into quititput "" into catsput "Mercury,Merkur,Mercure,Mercurio,êÖ êØ,§Ù¨P" & return after catsput "Venus,Venus,Vénus,Venus,㇠êØ,™˜¨P" & return after catsput "Mars,Mars,Mars,Marte,⌠êØ,§ı¨P" & return after catsput "Jupiter,Jupiter,Jupiter,Júpiter,ñÿ êØ,§Ï¨P" & return after catsput "Saturn,Saturn,Saturne,Saturno,ìy êØ,§g¨P" & return after catsput "Other Planets,Andere Planeten,Autres Planètes,Otros Planetas,Ǫ ÇÃ ëº Çà òf êØ,®‰•¶¶Ê¨P" & return after catsput "Sun,Sonne,Soleil,Sol,ëæ óz,§”∂ß" & return after catsput "Moon,Mond,Lune,Luna,åé,§Î≤y" & return after catsput "Satellite,Satelliten,Satellite,Satélite,âq êØ,Ω√¨P" & return after catsput "Small Body,Kleine Körper,Petit Objet,Astro Pequeño,˶ êŒ Ç» Ç«,§p™∫™´≈È" & return after catsput "Outer Space,Weltall,Dans l'Espace,El Espacio,äO âF íà,•~§”™≈" & return after catsput "Chart,Tabelle,Graphique,Carta,ê‡ ñæ ê},πœ∏—" & return after catsend initLangStringson openCardglobal curback, curcardif the name of this background is not curback thenif the short name of this card is "opener" then send colorMe to this cardelse Send colorMe to this backgroundput the name of this background into curbackend ifif the short name of this background is "images" thenput the name of this card into curcardshowitend ifpass openCardend openCardon closeCardglobal curbackput the name of this background into curbacklock screenpass closeCardend closeCardon showitglobal phtimage, imageLoc, test, slidesOnlock screenif there is a window ID phtimage then close window ID phtimageput (returnpath (long name of this stack)) into fnif test is true then put "vol_2:dev_1:space1:" into fnif field "media" = "mpg" then put "PICT_SML:NO_IMAGE.PICT" after fnelse if slidesOn = true thenput "PICT:" & field FileName & ".pict" after fnelse put "PICT_SML:" & field FileName & ".pict" after fnpicture fn, file, rect, false, 0, trueput the ID of window (the number of lines in the windows - 1) into phtimageif the name of window id phtimage is "Space View" then exit showit-- center the image at 465,160if slidesOn is false thenput the rect of window ID phtimage into wlocput trunc(.5 * (the width of window ID phtimage)) into wwidthput trunc(.5 * (the height of window ID phtimage)) into wheightput (465 - wwidth) &","&(160 - wheight) into imageLocset the loc of window ID phtimage to imageLocend ifshow window ID phtimageunlock screenend showit-- Make it bigger.on showbigglobal phtimage, wsif field "media" = "mpg" then exit showbig-- hide window id phtimageput (returnpath (long name of this stack)) into fnput "PICT:" & field filename & ".pict" after fnpicture fn, file, zoom, true, 0, true-- repeat forever-- if the mouseclick then-- put ((field filename) & ".pict")-- put the id of window ((field filename) & ".pict") into theid-- close window (the number of lines in the windows -1)-- show window id phtimage-- exit showbig-- end if-- end repeatend showbigfunction returnpath fullpathglobal testif test thenreturn "VOL_2:DEV_1:space1:"elsedelete char 1 to 7 of fullpath -- delete the word "stack" & opening quoterepeatif the last char of fullpath is ":" thenput ("PHT Space View:") into fullpathexit repeatelse if fullpath is empty thenput "Error: Can't get path name."exit repeatelse delete the last char of fullpathend repeatreturn fullpathend ifend returnpathon slideshowglobal slidesOnset the cursor to watchput true into slidesOnrepeatput the ticks into tif the Mouseclick thenput false into slidesOngo nextexit slideshowelse if the short name of this bg is "SpaceMenu" thengo card "akna_card"wait 100else if the short name of this card is "sn1993jp_card" then go card "akna_card"else go next card-- wait at least 3 secondswait 300 - (the ticks - t)end repeatend slideshowon moveWindowglobal phtimage,imageLocif there is a window ID phtimage thenif the name of window id phtimage is "Space View" then exit moveWindowshow window ID phtimage at imageLocend ifend moveWindowon setLang LgNumglobal curLang, langStrings, slide, quitit, catslock screenput item curLang of langStrings into theLanghide field (theLang & "Oneliner") of card 1 of bg "Images"repeat with i = 1 to 6hide bg button ((item i of langStrings)&"lang") of card 1 of bg "SpaceMenu"hide bg button ((item i of langStrings)&"lang") of card 1 of bg "Images"hide field ((item i of langStrings)&"Oneliner") of card 1 of bg "Images"hide card field i of card 1 of bg "Help"end repeatput lgNum into curLangput item curLang of langStrings into theLangselect line LgNum of bg button (theLang&"lang") of card "ESpaceViewMenu"select line LgNum of bg button (theLang&"lang") of card 1 of bg "Images"show card field curLang of card 1 of bg "Help"show bg button (theLang&"lang") of card "ESpaceViewMenu"show bg button (theLang&"lang") of card 1 of bg "Images"show field (theLang & "Oneliner") of card 1 of bg "Images"if the short name of this bg is "SpaceMenu" thengo card (theLang&"SpaceViewMenu")end ifput (item lgNum of slide) into field "slideshow" of card 1 of bg "Images"put (item lgNum of quitit) into field "quitit" of card 1 of bg "Images"if the short name of this bg is "Images" then put item curLang of line (field categoryNum) of cats into field categoryif theLang is not in "CJ" thenset the textfont of field "slideshow" of card 1 of bg "Images" to Chicagoset the textfont of field "quitit" of card 1 of bg "Images" to Chicagoset the textfont of field "category" of card 1 of bg "Images" to Timesset the textstyle of field "slideshow" of card 1 of bg "Images" to plainset the textstyle of field "quitit" of card 1 of bg "Images" to plainset the textstyle of field category of card 1 of bg "Images" to boldelse if theLang is J thenset the textfont of field "slideshow" of card 1 of bg "Images" to Osakaset the textfont of field "quitit" of card 1 of bg "Images" to Osakaset the textstyle of field "slideshow" of card 1 of bg "Images" to boldset the textstyle of field "quitit" of card 1 of bg "Images" to boldset the textfont of field category of card 1 of bg "Images" to "Osaka"else if theLang is C thenset the textfont of field "slideshow" of card 1 of bg "Images" to "Apple LiSung Light"set the textfont of field "quitit" of card 1 of bg "Images" to "Apple LiSung Light"set the textstyle of field "slideshow" of card 1 of bg "Images" to boldset the textstyle of field "quitit" of card 1 of bg "Images" to boldset the textfont of field category of card 1 of bg "Images" to "Apple LiSung Light"end ifunlock screenend setLangon colorMeAddColor colorCard,stamp,30end colorMe==========================================on bbedit the script of this backgroundend bbon ssedit the script of this stackend sson ccedit the script of this cardend cc---------------------------------------------------------------on hjset the visible of field jOneLiner to not the visible of field jOneLinerset the visible of field media to not the visible of field mediaset the visible of field serialNumber to not the visible of field serialNumberend hj-- Import the dataon mcglobal buf, mistake-- put (returnpath (long name of this stack)) & "SpaceForHCImport.txt" into fn-- close file fn-- open file fn-- read from file fn for 700000-- put it into buf-- put the length of bufput the number of lines in buf into numlinesrepeat with i = 0 to 523put i+1-- if ((i+1) * 7) + 1 > numlines then exit mc-- doMenu "new card"-- set the name of this card to line (i * 8) + 1 of bufput (line (i * 7) + 1 of buf) & "_card" into cardNameput i+1 && cardNameif line (i * 7) + 1 of buf <> field filename of card cardName thenbeep 3put cardName after mistakeexit mcend ifif line (i * 7) + 2 of buf <> field serialnumber of card cardName thenbeep 3put cardName after mistakeexit mcend ifput line (i * 7) + 3 of buf into field EEOneliner of card cardNameput line (i * 7) + 4 of buf into field FOneliner of card cardNameput line (i * 7) + 5 of buf into field SOneliner of card cardNameput line (i * 7) + 6 of buf into field GOneliner of card cardNameput line (i * 7) + 7 of buf into field COneliner of card cardNameend repeatclose file fnend mc-- change the names of the cardson crepeat with i = 1 to the number of cards of this backgroundput i && the name of card i of background imagesset the name of card i of background "Images" to ¬((field "filename" of card i of background "Images") & "_card")end repeatend con exrepeat with i = 1 to the number of cards in background "images"put (the short name of card i of background "images") & " TABBB " &¬(field "serialNumber" of card i of background "Images") & return after bufput iend repeatput buf after field description of card 1 of background "images"end exon closeStackAddColor removepass closeStackend closeStackon ttglobal testif test is true then put false into testelse put true into testend tton chrepeat with i = 1 to 12set the textfont of field i to chicago -- "apple lisung light"set the textsize of field i to 12set the textstyle of field i to plainend repeatend chon cpglobal phtimageclose window id phtimageend cpon checkcatsrepeat with i = 1 to the number of cards in bg imagesput iput field category of card i of bg images into cif c = "Mercury" then put 1 into field category of card i of bg imageselse if c = "Venus" then put 2 into field category of card i of bg imageselse if c = "Mars" then put 3 into field category of card i of bg imageselse if c = "jupiter" then put 4 into field category of card i of bg imageselse if c = "saturn" then put 5 into field category of card i of bg imageselse if c = "Other Planets" then put 6 into field category of card i of bg imageselse if c = "Sun" then put 7 into field category of card i of bg imageselse if c = "moon" then put 8 into field category of card i of bg imageselse if c = "satellite" then put 9 into field category of card i of bg imageselse if c = "Small Body" then put 10 into field category of card i of bg imageselse if c = "Outer Space" then put 11 into field category of card i of bg imageselse if c = "Chart" then put 12 into field category of card i of bg imageselsebeep 3put iput "xxx " before field category of card iend ifend repeatend checkcatson shiftset the loc of window "space view" to 100,100end shift</script>
